home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
thor
/
thor24arexx.lha
/
FSE
/
Coolify.fse
< prev
next >
Wrap
Text File
|
1996-11-11
|
573b
|
38 lines
/* Coolify text block - by Troels Walsted Hansen */
options results
YPOS
currline = result
XPOS
currcolumn = result
MSGLENGTH
lastline = result
call open(tfh, "t:UncoolTempFile", W)
do i=currline to lastline
SETPOS 1 i
GETLINE
line = result
if(line ~= "") then do
DELETELINES
i = i-1
end
else break
call writeln(tfh, line)
end
call close(tfh)
address command "Coolify >nil: t:UncoolTempFile t:CoolTempFile"
call delete("t:UncoolTempFile")
SETPOS currcolumn currline
INCLUDEFILE "t:CoolTempFile"
call delete("t:CoolTempFile")
SETPOS currcolumn currline